
library(data.table)

setwd("C:/UQAR/Recherche/Maitrise/Donnees/Bylot/Brutes/Argos")

file.name <- "Bylot2012_merged.txt"
dest.path <- "wip"

data <- data.table(read.table(file.name, header=TRUE))
setkey(data, Platform.ID.)

# Supprimons les donnees ou il n'y a pas la date!
data <- data[Loc..date != "",]

dates <- unlist(strsplit(as.character(data$Loc..date), split="\\ "))
# Creation des colonnes jour et heure a partir du vecteur date. Les jours sont
# les indices impairs et les heures les indices pairs. Pas forcement simple
# d'utilisation mais beaucoup plus performant.
data$Jour <- dates[seq(1, length(dates) - 1, by = 2)]
data$Heure <- dates[seq(2, length(dates), by = 2)]
data$ID <- as.numeric(data$Loc..date)

collarsID <- c(113045:113056)

for (i in collarsID){
  # cree un nouveau repertoire
  dir.create(file.path("wip", as.character(i)), showWarnings=FALSE)
  collar <- data[J(i),]
  collar$Jour <- as.factor(collar$Jour)
  setkey(collar, Jour)
  for (j in levels(collar$Jour)){
    dest.name <- paste(gsub("/", "_", j), ".txt", sep="")
    write.table(collar[J(j),], file.path(dest.path, i, dest.path))
  }
}